******************
**** Figure C2 ***
******************

use "$data/paidbyday" , clear


 forval i = 1(1)31  {
 egen meanpaidbyday`i'=mean(paidbyday`i')
 }

keep if _n==1
gen i=1

reshape long meanpaidbyday, i(i) j(t)

line meanpaidbyday t, xlabel(1(1)31, angle(90)) ylabel(0(1)8) ytitle("Average Payments in Euro per Customer") xtitle("Day of Month") title(Cumulative Payments over Course of the Month, color(black)) graphregion(color(white)) 

 
graph export "$filepath/output_logs/figure c2.pdf", replace
